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DISCLAIMER 



Although each program has been tested by its contributor, 

no warranty, express or implied, is made by the contributor 

or any User's Group, as to the accuracy and functioning of 

the program and related program material, nor shall the fact 

of distribution constitute any such warranty, and no responsibility 

is assumed by the contributor or any User's Group, in connection 

therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

program No. Date 

Program Name: 

JL. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

Comment 

2. Does the program do what the abstract says? Yes No_ 

C om m ent ; . 

;3. Is the description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable) ? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable) ? Yes No_ 

Comment 



Does the object program run satisfactorily? Yes_ 
Comment 



No 



7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back ariy suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

'. please return to; Your Name 

Company 

Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 



Dayton, Ohio 45432 Users Group Code 

^THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW ANI 
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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162 USERS GROUP LIBRARY PROGRAM ABSTRACT 



Title: Multipoint Plotter 

Author: Robert F. Gates, Jr. 
Computing Center 
University of Delaware 
Newark, Delaware 19 711 
368-0611 Ext. 662 

Users Group Membership Code: 1328 
Date: June 9, 1966 

Direct inquiries to author. 

Description/purpose: The purpose of the Multipoint 
Plotter is to accept data in the form of independent 
points, each data point being given by its X and Y 
coordinates, scale the data, and plot it on cards. 
Each data point may be given a separate symbol, data 
need not be presorted and scaling may be controlled 
by the user if desired. 

Specifications : 

a. Subroutines VAFP1F and VAFP2F (users group no. 
13.0.010) must be in library deck or on disc. 

b. Storage 40 K 

c. Programming type: FORTRAN II with SPS Sub- 
routines VAFP1F and VAFP2F 







MULTIPOINT PLOTTER 

Robert F. Gates, Jr. 
Computing Center 
University of Delaware 
Newark, Delaware 19 711 
368-0611 Ext. 662 



Users Group Membership Code: 13 2 8 



June 9, 1966 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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1. Program 

2. Sample Data 

3. Output for Data 



o 



PROGRAM WRITEUP 



Name: Multipoint Plotter 

Purpose: The purpose of the program is to plot data, 
each data point being given by its X and Y 
coordinates. It is important to note that 
there is no relationship assumed between 
individual data points. 

Subroutines: SPS Subroutines VAFP1F and VAFP2F must 
be in library deck or on disc. They are 
available from the users group under the title 
Variable Format - Plot Relocatable Subroutines 
number 13.0.010. 

Data Setup: The program is designed to read a set of 

data, scale it and plot it, after which it will 
repeat the cycle. After all the data sets have 
been plotted the program will TRP ERR if under 
MONITOR or end in a read interlock. Each data 
block is set up as follows: 

1. Title Card 

2. Control Card 

3. Optional control data cards 

4. Data, 1 card per data point 

5. LC card 

1. Title Card: This card may contain any 
information desired, it will be reproduced 
as the title of the plot. 

2. Control Card: This card determines what 
scaling options are to be used and wha.t symbol 
is to be used in plotting. A 1 in col. 2-7 



© 



turns the switch on. 

Column 1 - symbol to be used 

Column 2 - Switch 1, for off, 1 for on 

Column 3 - Switch 2 

Column 4 - Switch 3 

Column 5 - Switch 4 

Column 6 - Switch 5 

Column 7 - Switch 6 

3. Optional Control Data Cards : Some of 

the control switches above require further data 
to be read in 

Switch 1 - ymax, ymin (2F20.) 

Switch 2 - no. of X positions (14) 

Switch 3 - X incr. (f20.) 

Switch 4 - Y incr. (f20.) 

4. Data Cards : Each data point is described 
by the data on a separate card. As many cards 
are used as data points 

Cols. 1-20 - X coordinate (F20.) 
Cols. 21-40- Y coordinate (f20.) 
Col. 41 - Optional symbol 
for this data 
point (Al) 
If a symbol is provided in column 41 it will be 
used in plotting this particular data point, 
if column 41 is left blank the symbol specified 
on the control card will be used. 

5. LC Card: As., the last card of every data 
set is a card with the letters "LC" in columns 
79 and 80. This card causes termination of 
the data reading and the beginning of the 
scaling. 

Control Card Switch Settings: The program plots the data 

on cards, the Y axis is formed by the 77 positions 
from columns 4 to 80 and the X axis is formed by 



the number of cards punched. Unless specified 
otherwise the program makes the following 
scaling assumptions. The Y increment is set 
such that the total range of the Y coordinate is 
spread over all the 77 plotting positions. The 
X increment is set such that the total range of the 
X coordinate is spread over all the X plotting 
positions being arbitrarily set to the number of 
data points plotted. The scaling may be controlled 
by setting the control switches as follows. 

Switch 1 : Since the number of 
columns on a card is fixed the 
only way of spreading out the 
data is to eliminate some of the 
larger or smaller points from plot- 
ting. • To do this, switch 1 is set 
(a 1 in column 2 of the control card) 
This causes a card to be read in with 
the maximum and minimum values of Y to 
be considered in the scaling. Any 
data points outside this range will 
not appear on the plot. 
Switch 2 : It is possible to specify 
the number of positions to be used 
for the X axis by setting switch 2 and 
supplying a data card with the number 
on it. 

Switch 3 ; Rather than specify the 
number of positions to be used for the 
X axis, it is possible to specify the 
X increment by setting switch 3 and 
supplying a data card. The number of 
positions to be used for the plotting will 



then be determinded by the range of 
the X data and the increment given. 
Switch t ; The Y increment may like- 
wise be read in. If the increment 
is such that all the data cannot be 
plotted (except data eliminated by the 
switch 1 option) the Y increment will 
be computed in its normal fashion and 
a message typed on the typewriter. 
Switch 5 ; If it is desired to have 
identical X and Y increments , switch 
5 may be set. The Y increment is com- 
puted normally (with or without options 
1 and 4) and the X increment is set to 
this value. 

Switch 6 : Time may be saved if the data 
is in ascending order of X. If it is, 
switch 6 may be set to bypass the sort, 
the sort method used is a very high 
speed one. 
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DATA SET UP 

1. Title card (80H) 

2. Control card: symbol switches 1-6 

switch orr in not zero or blank (Al, 611) 

3. ymax, ymin if switch 1 set (2F20.x) 

4. Size of X output if switch 2 set (14) 

5. X increment if switch 3 set (F2CUx) 

6. Y increment if switch 4 set (F20.x) 

7. X position, Y position, optional symbol (2F20.X, Al) 

8. Same as no, 7, 1 card for each data point (2F20.X, Al) 

9. Last card indicator, LC in col. 79-80 (78x, A2) 



CONTROL CARD SWITCH SETTING 
Switch set by a 1 in the proper column 

1. Read Y max, Y min, inhibit plotting of values greater 
than or less than these values col. 2 

2. Read size of X axis (given in no. cards to be used in 
plotting the X axis) col. 3. 

3. Read X increment col. 4. 

4. Read Y increment Col. 5. 

5. Set the X increment equal to the Y increment determined 
above col. 6 . 

6. Do not sort data, X data is already in ascending order — col. 7. 



Note: Some of the above switch settings conflict with others. 
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C MULTIP0Ii\T 2 PL0TTlR--*R03ERT F. GATES-— 10/19/63 A PROGRAM TO GRAPH 

C DATA PAIRS IN ASCENDING ORDER OF X DATA, MORE THAN ONE VALUE FOR EACH 

C VALUE OF X PERMITTED, PROGRAM CAN ACCEPT DATA OUT OF ORDER VAFP1F 

C SUBROUTINE NO. 9 AND VAFP2F SUBROUTINE NO. 10 ARE NECESSARY IN SUBR. DECK- 
C SYMBOL READ IN WITH DATA .-.ILL 3E USED OVERIDING GENERAL SYMBOL UNLESS 
C S.S. 2 OR 3 ARE ON X 0UTPuT=N0. OF DATA POINTS READ IN. 

C~ INPUT INFORMATION 

C 1. TITLE OF GRAPH 

C 2. SYMBOL* S'viITCh SETTINGS 

C SWITCH 1 - READ YMAX. YMI N 

c SWITCH 2 - READ SIZE X OUTPUT 

C SWITCH 3 - READ X INCR 

SWITCH 4 - READ Y I NCR 
r SWITCH 5 - X INCR = Y INCR 

C SWITCH 6 - X DATA IS IN ASCENDING ORDER 

C (3.) Y MAX, Y MIN — IF S.S. 1 IS ON 

C (4.) SiZE Or X OUTPUT — IF S.S. 2 IS ON 

C (5.) X INCR. --IF S.S. 3 IS ON 

C (6. ) Y 1 NCR. --IF S.S. 4 IS ON 

C 7. DATA X, DATA Y, SYMBOL FOR PARTICULAR PT. (OPTIONAL) 

C 8. ADDITIONAL DATA (1 CARD FOR EACH POINT) 

C 9. LC IN COLUMNS 79 AND 80 

C 10. ADDITIONAL DATA SETS (1-9) OR END OF JOB 

DIM-NSION DATAXI 933 ) , DAT AY ( 932 ) , NSYMBL ( 932 ) ,NOGPH(932) 
EQUIVALENCE (II. IF, IA, IO.tTEMP. OUTPUT-, PLACE. REP). 
1( NSYMBL. NOGPH) 

C 

C READ DATA 
81 READ 1 

READ 2. K. NS1. NS2 . NS3 » NS4. NS5 » NS6 

K=K/100 

IF (NSD204, 7737, 204 
2u4 READ 3. YMAX. YMIN 
7737 IF (NS2)70» 71. 70 

70 READ 76. KMR 
GO TO 74 

71 IF (NS3>73. 74. 73 

73 READ 3. VALX 

74 IF (NS4)75» 72. 75 

75 READ 3. VALY 

72 NUM = ^ 

5 NUM=NUM+1 ^ Ar ^ 
READ 3. DAT AX ( NUM ) . DATAY ( NUM) » NSYMBL ( NUM ) » LCARD 
NSYMBL ( NUM ) =NS YMBL ( NUM ) 
IF (NUM-945 18736.4,4 

8736 IF (LCARD-5343)5.8737.5 

8737 NUM=NUM-1 

C ARRANGE DATA PAIRS IN ASCENDING ORDER OF X, HIGH SPEED SORT 
4 IF ( NS5 ) 3472,3471,3472 
3471 NUMII=NUM 
7217 *M=NUMII/2 
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IF (NUMII) 3472,3472,7215 

7215 KUM=NUM-NUMII 
JUM=1 

7216 IUM=JUM 

7211 I'TUM= IUM+NUMI I 

IF ( DATAX ( I UM ) -DAT AX ( I TUM ) ) 72 13 » 72 1 3 » 72 1 2 

7212 TEMP=DATAXt IUM) 
DATAX ( IUM)=DATAX< I TUM) 
DAT AX ( I TUM ) = TEMP 
TEMP=DATAY( IUM) 

DAT AY ( I UM ) =DATAY t I TUM) 
DAT AY ( I TUM ) =TEMP 
NTEMP=NSYMBL( IUM) 
NSYMBLt IUM)=NSYMBL( ITUM) 
NSYMBL ( I TUM ) =NTEMP 
IUM=IUM-NUMI I 
IF (IUM-1) 7213»7211»7211 

7213 JUM=JUM+1 

IF (JUM-KUM) 7216,7216,7217 

C 

C LIMIT Y DATA, FIND BIGGEST AND SMALLEST X AND Y DATA 
3472 IF (NSD 501 , 502 * 501 

501 DO 500 IF=1» NUM 

IF ( YMAX-DATAY (IF)) 500 » 504. 504 
504 IF (DATAYt I F ) -YM I N ) 500 , 509, 509 

509 SMALLX=DATAX( 1 ) 
SMALLY=DATAY< IF) 
BIGY=DATAY< IF) 
GO TO 510 

500 CONTINUE 

502 SMALLX=DATAX( 1 ) 
SMALLY=OATAY( 1 ) 
BIGY=DATAY( 1) 

510 BIGX=DATAX( NUM ) 
DO 6 IA=1, NUM 

IF (NSD210, 209, 210 
210 IF (YMAX-DATAYI I A) )206, 207, 207 

206 NOGPHf IA)=NOGPH( IA)+1 
GO TO 6 

207 IF (DATAY( I A ) -YMI N ! 208 , 209, 209 

208 NOGPH ( I A ) =NOGPH ( I A ) +1 
GO TO 6 

209 IF ( BI GY-DATAY ( I A ) ) 7 , 8, 8 

7 BIGY=DATAY( IA) 

8 IF(DATAY( I A ) -SMALL Y ) 9 , 6 , 6 

9 SMALLY=DATAY< IA) 
6 CONTINUE 

C 

C ASSIGN OUTPUT POSITIONS TO X AND Y DATA, DETERMINE AMOUNT OF X OUTPUT 
IF (NS6150, 51, 50 

50 REP=1. +76.* (BIGX-SMALLX )/ ( B I GY-SMALLY ) 
VALX= (BIGX-SMALLX ) / (REP-1. ) 

VALY= ( B I GY-SMALLY ) / 76. 
GO TO 59 

51 IF (NS2)58, 60, 58 
58 REP=KMR 

VALX= (BIGX-SMALLX)/ (REP-1. ) 
GO TO 52 
60 IF (NS3>61» 62» 61 
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61 REP=(BIGX-SMALLX)/VALX+1. 
GO TO 52 

62 REP=NUM 

VALX= (BIGX-SMALLX) / (REP-1. ) 
52 B IGYF = B IGY 

IF (NS4J63, 69, 63 

63 8IGY1=SMALLY+76.*VALY 

IP (PlflY-niRYl )65, 65,64 

64 PRINT 101 

69 VALY= (BIGY-SMALLY ) /76. 
GO TO 59 

65 B IGY=B I GY1 

59 DO 11 I B=l » NUM, 

MX=1.5+(REP-1.)*(DATAX{ 13 ) -SMALLX ) / (BIGX-SMALLX) 
DATAX(IB)=MX 

IF ( NOGPH ( IB)*100/1C0) 1121, 1121, 1122 
1122 DAT AY ( IB)=0 
GO TO 11 

1121 MY=4.5+76.*(DATAY(I3) -SMALL Y )/ ( B I GY-SMALLY ) 
DAT AY ( IB)=MY 

11 CONTINUE 

C 

C PUNCH GRAPH AND HEADINGS 
PUNCH 1 

PUNCH 103, SMALLY, 3IGYF, SMALLX 
PUNCH 214 
DATAX ( NUM+1 ) =0 
DO 12 IC=1,NUM 
MX=DATAX( IC) 
MY=DATAY( IC ) 
NPOS=MX/100+170 
PLACE=VAFP1F(NP0S) 
NPOS=MX/10-(MX/100 )*l0+270 
PLACE=VAFP1F(NP0S) 
NPOS=MX-(MX/10)*10+370 
PLACE=VAFP1F(NP0S) 

IF (NSYMBLt 10/100)6739, 6738, 6739 
KQ = NSYMBL( IO/100 
GO TO 6737 
KQ = K 

M0N=MY*100+KQ 
PLACE=VAFP1F(M0N) 
MXQ=MX 

JMY=DATAX( IC+1)-DATAX( IC) 
IF (JMY)21, 12, 21 
PLACE=VAFP2F(M0N) 
ID = 

IF ( JMY-1-ID)12» 12, 13 

ID=ID+1 
MXQ=MXQ+1 

NPOS=MXQ /100+170 
PLACE=VAFP1F(NP0S) 

NPOS=MXQ /10-(MXQ /100)*10 +270 
PLACE=VAFP1F(NP0S) 
NP0S=MXQ - ( MXQ /10)*10+370 
PLACE=VAFP1F(NP0S) 
PLACE=VAFP2F(MXQ) 
GO TO 221 
CONTINUE 



6739 

6738 
6737 

21 

221 
13 
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PUNCH 214 

PUNCH 104, BIGX, VALX, VALY 
GO TO 81 

C 

C FORMAT STATEMENTS 

1 FORMAT (80H 

1 ) 

2 FORMAT (1A1, 611) 

3 FORMAT (2F20.4, Al* 37X» A2 ) 
76 FORMAT (14) 

101 FORMAT (18HY INCR. CALCULATED) 

103 FORMAT (/E12.6, 8 H = S M A L L Y. 38X, E12.6, 6H=BIG Y//F12.6, 8H = SMALL 
IX/ ) 

H-4 FORMAT (/E12.6, -6H = BIG X//E12.6, 7H = X I NCR, 12 X ,E 1 2 . 6 , 7H = Y INCR) 
214 FORMAT ( 80H 000000000 1 1 1 1 1 1 1 1 1 1 22 2 2 L£ 2 2 22 3 3 33 333 3 3 344444444445 5 

155555555666666666677 7 7 7 7 7 7/ 80H 1 23 45 6789 01 2 345 67890 1 234 56 78 90 1 23 

245678901234 56 7890123456789012345676901234567 ) 
END 
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TEST DATA FOR MULTIPOINT PLOTTER BOB GATES JUNE 10, 1966 

*C0OO00 

17.555 6.77 
43.8 12.77 
5. 
10. 
15. 
20. 
25. 



5 « 


+ 


5 . 


+ 


5. 


+ 


5. 


+ 


5. 


+ 


-10. 


002. 10 


039. 


020.10 


-4.90C0 


-.449814 


.3000 


3.313714 


2.4000 


-12.041614 


-2.2000 


-.155014 


2.5000 


-9.800014 


-2.1000 


-.140514 


.4000 


3.062514 


.5000 


3.000014 


-4.8000 


-.442414 


-4.7C00 


-.434714 


.6000 


3.047614 


2.600G 


-8. 307614 


2.7^00 


-7.243314 


-2.0000 


-.125014 


.7000 


3.175814 


.8000 


3.375014 


.9000 


3.646414 


1.0000 


4.000014 


1.1000 


4.454514 


2.8000 


-6.446414 


-1.9000 


-.109314 


-4.6000 


-.426614 


-4.5000 


-.418814 


2.9000 


-5.827514 


3.0000 


-5.333314 


3.1000 


-4.929614 


-1.8000 


-.093514 


-4.4000 


-.410514 


-1.7000 


-.077914 


3.2000 


-4.593714 


-1.6000 


-.062514 


3.3000 


-4.310014 


-4.3000 


-.401914 


-4.2000 


-.393214 


-4.1000 


-.384214 


-4.0000 


-.375014 


-3.9000 


-.365414 


-1.5000 


-.047614 


-1.4000 


-.033614 


-1.3000 


-.020914 


-1.2000 


-.010414 


-3.8000 


-.355714 


-3.7000 


-.345614 


-3.6000 


-.335314 


3.4000 


-4.067214 


-1.1000 


-.002914 


-1.0000 


0.000014 



3.5000 
-.9000 
3.5000 
3.4000 
-.8000 
3.3000 
1.2000 
3.6000 
-.7000 
3.7000 
-.6000 
3.8000 
-.5000 
2.3000 
1.3000 
1 .4000 
3.2000 
3.9000 
-.4000 
3.1000 
3.0000 
1.5000 
4.0000 
4.100C 
1 .6000 
-.3000 
-2.9000 
-2.8000 
-2.7000 
1.7000 
1 .8000 
1.9000 
4.2000 
4.3000 
-2.6000 
-2.5000 
-2.4000 
2.1000 
2.2000 
-2.3000 
4.4000 
4.5000 
-.2000 
-.1000 
.1000 
.2000 
4.6000 
4.7000 
4.8000 
10. 
18. 
?9. 
33. 
50. 
60. 
72. 
73. 
74. 
001. 



-3.857114 
-.003614 
-.324614 
-.313714 
-,017bl4 
-.302414 
5.041614 

-3.673614 
-.047614 

-3.511914 
-.102514 

-3.368414 
-.200014 
-15.782614 
5.813114 
6.857114 
-.290614 

-3.240214 
-.375014 
-.27^914 
-.266614 
8.333314 

-3.125014 

-3.020914 

10.562314 
- * i \ C 1 1 4 

-.241014 
-.227714 
14.294114 
21.777714 
44.2631 14 
-2.926414 
-2.840214 
-.214014 
-.200014 
-.185614 
-45.761914 
-23.272714 
-.170614 
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